home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / WPSIMULA (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.5 KB  |  173 lines
  1. 1 M = 50222:GOTO100
  2. 2 PRINT"[147]";:PRINTM"DATA ";:FORL=MTOM+8:A$=STR$(PEEK(L))
  3. 3 PRINTRIGHT$(A$,LEN(A$)-1)",";:NEXT:A$=STR$(PEEK(M+9))
  4. 4 PRINTRIGHT$(A$,LEN(A$)-1):PRINT"1 M ="M+10:PRINT"RUN":STOP
  5. 5 IFS>1THEN10:REM _@0:WPSIMULATE
  6. 6 PRINTCHR$(14):PRINT"[212]EACHING THE [195]OMMODORE [215]ORD [208]ERFECT":PRINT"[208]LEASE WAIT.."
  7. 7 FORN=49152TO50222:READA:POKEN,A:NEXT
  8. 8 PRINT"[147][158]":POKE53281,0
  9. 9 REM TAKEN FROM SCE13 1/25/92
  10. 10 INPUT"[198]ILE NAME";F$
  11. 12 INPUT"SCREEN (S) OR PRINTER (P)";M$
  12. 14 IFM$="P"THENM=4:GOTO24
  13. 16 M=3
  14. 24 OPEN4,M,7:CMD4:GOTO45
  15. 45 OPEN15,8,15:OPEN1,M,27:PRINT#1:CLOSE1:IFM=3THEN50
  16. 46 PRINT#4,CHR$(27)CHR$(37)CHR$(0);
  17. 50 OPEN5,8,5,"0:"+F$+",S,R"
  18. 60 GOSUB2000:IFM=3THEN62
  19. 61 PRINT#4,CHR$(27)CHR$(81)CHR$(81);
  20. 62 GET#5,A$:A=ASC(A$+CHR$(0)):IFA<255THENGOSUB90:SYS49152:GOTO85
  21. 63 GET#5,B$,C$,D$,E$,F$:Z$=CHR$(0):E=ASC(E$+Z$):F=ASC(F$+Z$)
  22. 64 FORN=1TO256*F+E-6:GET#5,A$:NEXT
  23. 66 SYS49152:PRINT#4:CLOSE4:GOTO85
  24. 85 PRINTCHR$(14);"[196]ONE!":CLOSE5:CLOSE4:CLOSE15:GOTO10
  25. 90 IFA<91THENA=A+32:GOTO92
  26. 91 A=A-32
  27. 92 PRINT#4,CHR$(A);:RETURN
  28. 100 S=S+1
  29. 101 IFS>1THENPRINT"[158][147]":POKE53281,0:GOTO10
  30. 102 PRINTCHR$(14):PRINT"[158][147][201]S THE PRINTER ON LINE?":PRINT"[201]F SO, PRESS ANY KEY"
  31. 103 GOSUB3000:PRINT"[212]EACHING THE PRINTER [199]REEK":PRINT"[208]LEASE WAIT...."
  32. 104 OPEN4,4,4
  33. 110 PRINT#4,CHR$(27)+"&"+CHR$(0)+CHR$(97)+CHR$(114);
  34. 130 PRINT#4,CHR$(154);
  35. 140 FORL=1TO18
  36. 150 FORI=1TO11
  37. 160 READA:PRINT#4,CHR$(A);
  38. 170 NEXTI:PRINT#4,CHR$(154);
  39. 180 NEXTL
  40. 250 PRINT#4,CHR$(27)+"%"+CHR$(1);
  41. 291 PRINT#4:CLOSE4:GOTO5
  42. 301 DATA 56,68,0,130,130,0,68,120,134,0,0:REM 97 ALPHA
  43. 302 DATA 127,146,146,146,146,146,146,146,108,0,0:REM 98 BETA
  44. 303 DATA 128,128,0,64,32,31,16,32,64,128,0:REM 99 GAMMA
  45. 304 DATA 0,68,170,160,145,145,0,74,4,0,0:REM 100 DELTA
  46. 305 DATA 0,56,84,16,146,146,146,146,146,0,0:REM 101 EPSILON
  47. 306 DATA 130,4,64,40,16,8,4,0,2,2,0:REM 102 LAMBDA
  48. 307 DATA 32,64,64,64,127,64,64,64,64,0,0:REM 103 TAU
  49. 308 DATA 0,127,2,2,2,2,2,126,0,1,0:REM 104 MU
  50. 309 DATA 24,36,66,66,66,66,66,100,88,64,0:REM 105 SIGMA
  51. 310 DATA 128,130,68,40,16,40,68,130,2,0,0:REM 106 CHI
  52. 311 DATA 24,36,36,0,24,0,36,36,24,0,0:REM 107 INFINITY
  53. 312 DATA 6,10,18,34,66,66,34,18,10,6,0:REM 108 CAPITAL DELTA
  54. 313 DATA 0,0,16,0,108,0,130,130,130,0,0:REM 109 OPEN BRACE
  55. 314 DATA 0,0,130,130,130,0,108,0,16,0,0:REM 110 CLOSE BRACE
  56. 315 DATA 62,4,8,16,32,64,128,128,128,128,0:REM 111 SQUARE ROOT
  57. 316 DATA 0,28,42,73,73,73,73,42,28,0,0:REM 112 THETA
  58. 317 DATA 24,36,36,36,0,24,0,36,36,36,0:REM 113 PROPORTIONALITY
  59. 318 DATA 0,255,128,128,128,128,128,128,128,64,0:REM 114 CAPITAL GAMMA
  60. 2000 INPUT#15,A$,B$,C$,D$
  61. 2100 IFVAL(A$)>0THENPRINTA$,B$,C$,D$:S=S+1:CLOSE5:CLOSE4:CLOSE15:GOTO10
  62. 2200 RETURN
  63. 3000 GETA$:IFA$=""THEN3000
  64. 3010 RETURN
  65. 49152 DATA 169,4,162,4,160,7,32,186,255,169
  66. 49162 DATA 0,166,251,164,251,32,189,255,32,192
  67. 49172 DATA 255,169,5,162,8,160,5,32,186,255
  68. 49182 DATA 169,0,166,251,164,251,32,189,255,169
  69. 49192 DATA 0,133,144,162,5,32,198,255,32,207
  70. 49202 DATA 255,133,251,201,159,208,7,169,10,133
  71. 49212 DATA 251,76,194,192,201,10,240,123,201,192
  72. 49222 DATA 240,79,201,212,240,69,201,194,240,74
  73. 49232 DATA 201,193,240,64,201,197,240,72,201,198
  74. 49242 DATA 240,125,201,209,240,61,201,160,240,84
  75. 49252 DATA 201,13,240,90,201,32,240,86,24,201
  76. 49262 DATA 33,144,186,201,91,240,77,201,93,240
  77. 49272 DATA 73,201,34,208,3,76,9,193,32,183
  78. 49282 DATA 255,41,64,208,106,24,165,251,201,197
  79. 49292 DATA 176,15,76,16,193,76,56,193,76,33
  80. 49302 DATA 193,76,214,194,76,245,192,76,11,195
  81. 49312 DATA 133,251,162,5,32,198,255,32,207,255
  82. 49322 DATA 197,251,208,244,169,32,133,251,32,97
  83. 49332 DATA 193,76,43,192,169,32,133,251,76,194
  84. 49342 DATA 192,76,26,193,162,4,32,201,255,162
  85. 49352 DATA 4,32,177,255,169,103,32,147,255,165
  86. 49362 DATA 251,32,210,255,76,43,192,160,5,162
  87. 49372 DATA 5,32,198,255,32,207,255,201,197,240
  88. 49382 DATA 185,136,208,241,169,32,133,251,76,194
  89. 49392 DATA 192,32,204,255,96,160,10,162,5,32
  90. 49402 DATA 198,255,32,207,255,136,208,245,169,32
  91. 49412 DATA 133,251,76,194,192,169,39,133,251,76
  92. 49422 DATA 194,192,165,251,24,201,65,144,30,76
  93. 49432 DATA 119,193,169,13,133,251,76,194,192,160
  94. 49442 DATA 8,162,5,32,198,255,32,207,255,136
  95. 49452 DATA 208,245,169,32,133,251,76,194,192,76
  96. 49462 DATA 194,192,160,32,136,162,5,32,198,255
  97. 49472 DATA 32,207,255,192,1,240,7,201,212,240
  98. 49482 DATA 19,76,58,193,160,0,185,249,195,133
  99. 49492 DATA 251,240,7,32,97,193,200,76,80,193
  100. 49502 DATA 76,43,192,24,162,4,32,201,255,169
  101. 49512 DATA 4,32,177,255,169,103,32,147,255,165
  102. 49522 DATA 251,32,210,255,96,24,165,251,201,97
  103. 49532 DATA 176,8,24,105,32,133,251,76,194,192
  104. 49542 DATA 24,165,251,201,123,176,8,56,233,32
  105. 49552 DATA 133,251,76,194,192,165,251,201,169,208
  106. 49562 DATA 7,169,45,133,251,76,194,192,165,251
  107. 49572 DATA 201,170,208,17,169,45,133,251,32,97
  108. 49582 DATA 193,169,13,133,251,32,97,193,76,43
  109. 49592 DATA 192,165,251,201,173,208,20,169,45,133
  110. 49602 DATA 251,32,97,193,169,13,133,251,32,97
  111. 49612 DATA 193,76,43,192,76,79,194,165,251,201
  112. 49622 DATA 195,208,247,162,5,32,198,255,32,207
  113. 49632 DATA 255,133,251,165,251,201,12,208,27,160
  114. 49642 DATA 0,185,223,195,133,251,240,7,32,97
  115. 49652 DATA 193,200,76,235,193,162,5,32,198,255
  116. 49662 DATA 32,207,255,76,43,192,201,14,208,16
  117. 49672 DATA 160,0,185,229,195,133,251,240,232,32
  118. 49682 DATA 97,193,200,76,10,194,201,5,208,26
  119. 49692 DATA 160,0,185,236,195,133,251,240,7,32
  120. 49702 DATA 97,193,200,76,30,194,169,0,133,251
  121. 49712 DATA 32,97,193,76,249,193,165,251,201,6
  122. 49722 DATA 208,16,160,0,185,242,195,133,251,240
  123. 49732 DATA 180,32,97,193,200,76,62,194,76,249
  124. 49742 DATA 193,201,196,208,32,162,5,32,198,255
  125. 49752 DATA 32,207,255,133,251,165,251,201,12,208
  126. 49762 DATA 19,160,0,185,226,195,133,251,240,40
  127. 49772 DATA 32,97,193,200,76,101,194,76,214,194
  128. 49782 DATA 201,14,208,29,160,0,185,233,195,133
  129. 49792 DATA 251,240,7,32,97,193,200,76,124,194
  130. 49802 DATA 169,0,133,251,32,97,193,76,249,193
  131. 49812 DATA 76,249,193,165,251,201,5,208,16,160
  132. 49822 DATA 0,185,239,195,133,251,240,238,32,97
  133. 49832 DATA 193,200,76,159,194,165,251,201,6,208
  134. 49842 DATA 225,160,0,185,246,195,133,251,240,216
  135. 49852 DATA 32,97,193,200,76,181,194,160,0,185
  136. 49862 DATA 26,196,133,251,240,200,32,97,193,200
  137. 49872 DATA 76,197,194,76,43,192,201,192,208,49
  138. 49882 DATA 162,5,32,198,255,32,207,255,133,251
  139. 49892 DATA 165,251,201,1,208,74,162,5,32,198
  140. 49902 DATA 255,32,207,255,201,8,208,205,234,160
  141. 49912 DATA 0,185,10,196,133,251,165,251,201,255
  142. 49922 DATA 240,144,32,97,193,200,76,249,194,201
  143. 49932 DATA 193,208,196,32,215,195,162,5,32,198
  144. 49942 DATA 255,32,207,255,133,251,201,2,240,3
  145. 49952 DATA 76,64,192,162,5,32,198,255,32,207
  146. 49962 DATA 255,201,193,208,244,169,32,76,64,192
  147. 49972 DATA 165,251,201,3,208,39,162,5,32,198
  148. 49982 DATA 255,32,207,255,201,8,208,21,234,160
  149. 49992 DATA 0,185,18,196,133,251,165,251,201,255
  150. 50002 DATA 240,10,32,97,193,200,76,73,195,76
  151. 50012 DATA 195,194,76,249,193,165,251,201,45,208
  152. 50022 DATA 22,162,5,32,198,255,32,207,255,201
  153. 50032 DATA 6,208,86,169,39,133,251,32,97,193
  154. 50042 DATA 76,249,193,165,251,201,25,208,32,162
  155. 50052 DATA 5,32,198,255,32,207,255,201,8,208
  156. 50062 DATA 58,160,0,185,30,196,133,251,165,251
  157. 50072 DATA 201,255,240,194,32,97,193,200,76,145
  158. 50082 DATA 195,165,251,201,36,208,35,162,5,32
  159. 50092 DATA 198,255,32,207,255,201,6,208,20,160
  160. 50102 DATA 0,185,38,196,133,251,165,251,201,255
  161. 50112 DATA 240,156,32,97,193,200,76,183,195,76
  162. 50122 DATA 195,194,162,5,32,198,255,32,207,255
  163. 50132 DATA 76,195,194,169,32,133,251,32,97,193
  164. 50142 DATA 96,27,69,0,27,70,0,27,45,1
  165. 50152 DATA 0,27,45,0,27,83,0,27,84,0
  166. 50162 DATA 27,83,1,0,27,84,0,13,32,32
  167. 50172 DATA 45,45,45,91,112,97,103,101,93,45
  168. 50182 DATA 45,45,13,0,27,37,1,65,27,37
  169. 50192 DATA 0,255,27,37,1,66,27,37,0,255
  170. 50202 DATA 91,63,93,0,27,37,1,72,27,37
  171. 50212 DATA 0,255,27,73,1,133,27,73,0,255
  172. 50222 DATA 255
  173.